home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / short32.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  5.4 KB  |  149 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "short.h"
  9. /*No:POSITION.line*/
  10. void r627make(T627* C,int a1,int a2){
  11. C->_mem_line_column=((a1)*(1000))+(a2);
  12. C->_base_class_name=/*(IRF4.6current_class_name*/(((T605*)((T605*)((((T818*)((T818*)(oBC364eiffel_parser))))->_last_base_class/*65*/))))->_base_class_name/*24*//*)*/;
  13. }
  14. T0* r627get_line(T627* C){
  15. T0* R=NULL;
  16. int _i=0;
  17. T0* _p=NULL;
  18. _p=r627path(C);
  19. /*IF*/if ((_p)!=((void*)(NULL))) {
  20. r675connect_to(((T675*)(oBC364tmp_file_read)),_p);
  21. while (!((_i)==(/*(IRF4.6line*/((((T627*)C))->_mem_line_column/*4*/)/(1000)/*)*/))) {
  22. r675read_line(((T675*)(oBC364tmp_file_read)));
  23. _i=(_i)+(1);
  24. }
  25. R=oBC762last_string;
  26. r675disconnect(((T675*)(oBC364tmp_file_read)));
  27. }
  28. /*FI*/return R;
  29. }
  30. T0* r627path(T627* C){
  31. T0* R=NULL;
  32. T0* _bc=NULL;
  33. T0* _bcn=NULL;
  34. _bcn=(((T451*)((T451*)((((T627*)C))->_base_class_name/*0*/))))->_to_string/*0*/;
  35. /*IF*/if ((_bcn)!=((void*)(NULL))) {
  36. /*IF*/if (r604is_used(_bcn)) {
  37. _bc=r451base_class(((T451*)((((T627*)C))->_base_class_name/*0*/)));
  38. }
  39.  else if ((((T818*)((T818*)(oBC364eiffel_parser))))->_is_running/*8*/) {
  40. /*IF*/if (((((T451*)((T451*)(/*(IRF4.6current_class_name*/(((T605*)((T605*)((((T818*)((T818*)(oBC364eiffel_parser))))->_last_base_class/*65*/))))->_base_class_name/*24*//*)*/))))->_to_string/*0*/)==((void*)(_bcn))) {
  41. _bc=/*(IRF4.3current_class*/(((T818*)((T818*)(oBC364eiffel_parser))))->_last_base_class/*65*//*)*/;
  42. }
  43. /*FI*/}
  44. else {
  45. _bc=r451base_class(((T451*)((((T627*)C))->_base_class_name/*0*/)));
  46. }
  47. /*FI*//*IF*/if ((_bc)!=((void*)(NULL))) {
  48. R=(((T605*)((T605*)_bc)))->_path/*4*/;
  49. }
  50. /*FI*/}
  51. /*FI*/return R;
  52. }
  53. /*No:POSITION.column*/
  54. void r627with(T627* C,int a1,int a2,T0* a3){
  55. C->_mem_line_column=((a1)*(1000))+(a2);
  56. C->_base_class_name=a3;
  57. }
  58. int r627is_equal(T627* C,T0* a1){
  59. int R=0;
  60. R=(((((/*(IRF4.6line*/((((T627*)C))->_mem_line_column/*4*/)/(1000)/*)*/)==(/*(IRF4.6line*/((((T627*)((T627*)a1)))->_mem_line_column/*4*/)/(1000)/*)*/))&&((/*(IRF4.6column*/((((T627*)C))->_mem_line_column/*4*/)%(1000)/*)*/)==(/*(IRF4.6column*/((((T627*)((T627*)a1)))->_mem_line_column/*4*/)%(1000)/*)*/)))&&(((((T627*)C))->_base_class_name/*0*/)!=((void*)(NULL))))&&(((((T627*)((T627*)a1)))->_base_class_name/*0*/)!=((void*)(NULL))))&&(((((T451*)((T451*)((((T627*)C))->_base_class_name/*0*/))))->_to_string/*0*/)==((void*)((((T451*)((T451*)((((T627*)((T627*)a1)))->_base_class_name/*0*/))))->_to_string/*0*/)));
  61. return R;
  62. }
  63. void r627show(T627* C){
  64. T0* _the_line=NULL;
  65. T0* _str=NULL;
  66. T0* _n=NULL;
  67. int _nb=0;
  68. int _c=0;
  69. _n=(((T451*)((T451*)((((T627*)C))->_base_class_name/*0*/))))->_to_string/*0*/;
  70. r441put_string(((T441*)(oBC1std_error)),((T0*)ms3_627));
  71. r441put_integer(((T441*)(oBC1std_error)),/*(IRF4.6line*/((((T627*)C))->_mem_line_column/*4*/)/(1000)/*)*/);
  72. r441put_string(((T441*)(oBC1std_error)),((T0*)ms4_627));
  73. r441put_integer(((T441*)(oBC1std_error)),/*(IRF4.6column*/((((T627*)C))->_mem_line_column/*4*/)%(1000)/*)*/);
  74. r441put_string(((T441*)(oBC1std_error)),((T0*)ms5_627));
  75. r441put_string(((T441*)(oBC1std_error)),_n);
  76. _str=r627path(C);
  77. /*IF*/if ((_str)!=((void*)(NULL))) {
  78. r441put_string(((T441*)(oBC1std_error)),((T0*)ms6_627));
  79. r441put_string(((T441*)(oBC1std_error)),_str);
  80. /*[IRF3.6put_character*/{T441* C1=((T441*)(oBC1std_error));
  81. char b1='\51';
  82. putc(b1,((FILE*)(stderr)));
  83. }/*]*/
  84. }
  85. /*FI*/r441put_string(((T441*)(oBC1std_error)),((T0*)ms7_627));
  86. _the_line=r627get_line(C);
  87. /*IF*/if ((_the_line)!=((void*)(NULL))) {
  88. _c=/*(IRF4.6column*/((((T627*)C))->_mem_line_column/*4*/)%(1000)/*)*/;
  89. r441put_string(((T441*)(oBC1std_error)),_the_line);
  90. /*[IRF3.4put_new_line*//*[IRF3.6put_character*/{T441* C1=((T441*)(oBC1std_error));
  91. char b1='\n';
  92. putc(b1,((FILE*)(stderr)));
  93. }/*]*/
  94. /*]*/
  95. _nb=1;
  96. while (!((_nb)==(_c))) {
  97. /*IF*/if ((/*(IRF4.6item*/((((T7*)((T7*)_the_line)))->_storage/*0*/)[(_nb)-(1)]/*)*/)==('\11')) {
  98. /*[IRF3.6put_character*/{T441* C1=((T441*)(oBC1std_error));
  99. char b1='\11';
  100. putc(b1,((FILE*)(stderr)));
  101. }/*]*/
  102. }
  103. else {
  104. /*[IRF3.6put_character*/{T441* C1=((T441*)(oBC1std_error));
  105. char b1='\40';
  106. putc(b1,((FILE*)(stderr)));
  107. }/*]*/
  108. }
  109. /*FI*/_nb=(_nb)+(1);
  110. }
  111. r441put_string(((T441*)(oBC1std_error)),((T0*)ms8_627));
  112. }
  113. else {
  114. r441put_string(((T441*)(oBC1std_error)),((T0*)ms9_627));
  115. r441put_string(((T441*)(oBC1std_error)),_n);
  116. r441put_string(((T441*)(oBC1std_error)),((T0*)ms10_627));
  117. }
  118. /*FI*/}
  119. T0* r627base_class(T627* C){
  120. T0* R=NULL;
  121. /*IF*/if ((((T818*)((T818*)(oBC364eiffel_parser))))->_is_running/*8*/) {
  122. /*IF*/if (/*(IRF4.7empty*/((((T7*)((T7*)((((T451*)((T451*)((((T627*)C))->_base_class_name/*0*/))))->_to_string/*0*/))))->_count/*4*/)==(0)/*)*/) {
  123. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms1_627);
  124. r683fatal_error(((T683*)(oBC364eh)),b1);
  125. }/*]*/
  126. }
  127.  else if (r604is_used((((T451*)((T451*)((((T627*)C))->_base_class_name/*0*/))))->_to_string/*0*/)) {
  128. R=r451base_class(((T451*)((((T627*)C))->_base_class_name/*0*/)));
  129. }
  130. else {
  131. /*[IRF3.6fatal_error*/{T0* b1=((T0*)ms2_627);
  132. r683fatal_error(((T683*)(oBC364eh)),b1);
  133. }/*]*/
  134. }
  135. /*FI*/}
  136. else {
  137. R=r451base_class(((T451*)((((T627*)C))->_base_class_name/*0*/)));
  138. }
  139. /*FI*/return R;
  140. }
  141. /*No:POSITION.fatal_error*/
  142. /*No:POSITION.mem_line_column*/
  143. /*No:POSITION.base_class_name*/
  144. void r627set_line_column(T627* C,int a1,int a2){
  145. C->_mem_line_column=((a1)*(1000))+(a2);
  146. }
  147. /*No:BOOLEAN_REF.item*/
  148.  
  149.